(system_process_attributes): Close fd when done.

diff --git a/src/sysdep.c b/src/sysdep.c
index 70a019c39ae5457c39e296f23f527fac5e1cce10..fbd4973937756260d5bbd878e5b059a2e408ec4a 100644 (file)
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -3743,6 +3743,9 @@ system_process_attributes (Lisp_Object pid)
          attrs =  Fcons (Fcons (Qargs,  decoded_cmd),  attrs);
     }
 
+  if (fd >= 0)
+    emacs_close (fd);
+
   UNGCPRO;
   return attrs;
 }